perm filename EMITER.HDR[OLD,HE] blob sn#463359 filedate 1979-08-02 generic text, type T, neo UTF8
!  Defines the relocation and PC constants for the emiter.
Declares the procedures in EMITER.SAI.  Does not require EMITER.REL;

!  RELOC constants;
DEFINE PSINST = "0";	!  Pseudo-instruction;	
DEFINE SYMDEC = "1";	!  Declaration of numbered symbol;
DEFINE SYMREF = "2";	!  Reference to numbered symbol;
DEFINE STRCONST = "3";	!  String constant;
DEFINE REMARK = "5";	!  Just a comment for debugging;
DEFINE SKIP = "6";	!  Skip some words (DATA tells how many);
DEFINE CONST = "7";	!  Just an octal constant;
DEFINE FLOAT = "8";	!  A floating point constant;

!  PC constants;
DEFINE PSDCODE = "0";	!  Pseudo-code;
DEFINE TJFILE = "1";	!  Trajectory tables;
DEFINE SMLBLK = "2";	!  Small blocks:  constants;
DEFINE SYMFIL = "3";	!  Symbol table;
DEFINE DUMMY = "0";


EXTERNAL PROCEDURE EMIT(INTEGER PC; REFERENCE INTEGER DATA, RELOC;
    INTEGER LTH (1));
EXTERNAL PROCEDURE COMERR
  (STRING MESSG;RECORD_POINTER(ANY_CLASS) CONTXT (NULL_RECORD));
EXTERNAL PROCEDURE INITOUT(STRING FNAME,PPN;BOOLEAN SF(TRUE));
EXTERNAL PROCEDURE CLOSEOUT;
EXTERNAL PROCEDURE MAKE_REMARK(INTEGER PC;STRING REMK);
EXTERNAL INTEGER PROCEDURE GENLABEL;